﻿Imports BUS
Imports DTO
Public Class FormNhapSach

    Private Sub LoadDataGridView()
        Dim dt As DataTable
        Dim sachbus As New SachBUS()
        dt = sachbus.LayThongTin()
        dgvnhapsach.DataSource = dt
    End Sub
    Public Function KiemTraSoLuong() As Boolean
        Dim sachdto As New SachDTO
        Dim test As Integer = sachdto.SoLuongTon
        If (Convert.ToInt32(txtsoluong.Text) >= 150) Then
            Return True
        End If
        Return False
    End Function

    Private Sub btnluu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnluu.Click
        Try
            If (KiemTraSoLuong()) Then
                'lay gia tri trên form
                Dim sachDto As New SachDTO()

                sachDto.TenSach = txttensach.Text
                sachDto.GiaBan = txtdongianhap.Text
                sachDto.SoLuongTon = txtsoluong.Text

                'lấy mã tác giả được chọn
                Dim tgDto As TacGiaDTO
                tgDto = cmbtacgia.SelectedItem
                sachDto.MaTacGia = tgDto.MaTacGia

                'lấy mã thể loại được chọn
                Dim tlDto As TheLoaiDTO
                tlDto = cmbtheloai.SelectedItem
                sachDto.MaTheLoai = tlDto.MaTheLoai

                'nhập sách vào cơ sở dữ liệu
                Dim sachBus As New SachBUS()
                sachBus.Them(sachDto)

                ''nhập phiếu nhập
                Dim pndto As New PhieuNhapDTO
                pndto.NgayNhap = DateTimengaynhap.Value.ToString()
                Dim pnbus As New PhieuNhapBUS()
                pnbus.Them(pndto)

                MessageBox.Show("Tiếp nhận sách thành công", "Thông báo", MessageBoxButtons.OK)
            Else
                MessageBox.Show("Số lượng nhập ít nhất 150", "Error", MessageBoxButtons.OK)
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        LoadDataGridView()
    End Sub

    'Load combobox tác giả
    Private Sub LoadDanhSachTaGia()
        Dim tgBus As New TacGiaBUS()
        Dim dstacgia As IList
        dstacgia = tgBus.LayDanhSach()
        cmbtacgia.DataSource = dstacgia
        cmbtacgia.DisplayMember = "TenTacGia"
        cmbtacgia.ValueMember = "MaTacGia"
    End Sub

    'Load combobox Thể loại
    Private Sub LoadDanhSachTheLoai()
        Dim tlBus As New TheLoaiBUS()
        Dim dstheloai As IList
        dstheloai = tlBus.LayDanhSach()
        cmbtheloai.DataSource = dstheloai
        cmbtheloai.DisplayMember = "TenTheLoai"
        cmbtheloai.ValueMember = "MaTheLoai"
    End Sub

    Private Sub LoadMaNhap()
        Dim sachBus As New SachBUS()
        Dim dsma As IList
        dsma = sachBus.LayDanhSach()
        cmbma.DataSource = dsma
        cmbma.DisplayMember = "MaSach"
        cmbma.ValueMember = "MaSach"
    End Sub


    Private Sub FormNhapSach_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        DateTimengaynhap.Value = DateTime.Now
        LoadDanhSachTaGia()
        LoadDanhSachTheLoai()
        LoadDataGridView()
        LoadMaNhap()
    End Sub

End Class